home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / PROG.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.8 KB  |  24 lines
  1.  
  2. *                                                                               
  3. * Prog Routine Initializes Internal Variables, and                              
  4. *     Outputs IDT Statement                                                     
  5. *                                                                               
  6. PROG   $MACRO            A                                                      
  7.        $VAR Q                                                                   
  8.        $ASG '''' TO Q.S                                                         
  9.        IDT  :Q::A::Q:                                                           
  10. *                                                                               
  11. * Initialize unique label counter                                               
  12. *                                                                               
  13.        $ASG '$$LAB' TO Q.S                                                      
  14.        $ASG 0 TO Q.SV                                                           
  15. *                                                                               
  16. * Assign unique values to indirect symbols                                      
  17. *                                                                               
  18.        $ASG '*' TO Q.S                                                          
  19.        $ASG >F0F0 TO Q.SV                                                       
  20.        $ASG '*+' TO Q.S                                                         
  21.        $ASG >F0F1 TO Q.SV                                                       
  22.        $ASG '*-' TO Q.S                                                         
  23.        $ASG >F0F2 TO Q.SV                                                       
  24.        $END